home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_149_pointer behavior.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  777 b   |  32 lines
  1. property outcurs, incurs, incursSet, customImage, customMask, oldcursor, useCustom
  2.  
  3. on translate_cursor me, Setting, image, mask, Custom
  4.   val = [member(image), member(mask)]
  5.   return val
  6.   return Setting
  7. end
  8.  
  9. on endSprite me
  10.   oldcursor = member("point")
  11. end
  12.  
  13. on beginSprite me
  14.   sprite(me.spriteNum).member = "pointer button"
  15.   sprite(me.spriteNum).loc = point(155, 463)
  16.   oldcursor = member("point")
  17.   val = translate_cursor(me, me.incursSet, "point", "point mask", 1)
  18.   set the cursor of sprite the spriteNum of me to val
  19. end
  20.  
  21. on mouseDown me
  22.   sprite(me.spriteNum).member = "pointer"
  23.   updateStage()
  24. end
  25.  
  26. on mouseUp me
  27.   if sprite(me.spriteNum).locH < 220 then
  28.     sprite(me.spriteNum).member = "pointer button"
  29.     sprite(me.spriteNum).loc = point(155, 463)
  30.   end if
  31. end
  32.